(ada-xref-update-project-menu,ada-add-ada-menu): Handle the menu

pseudo-keys generated by easymenu which are lowercase in Emacs 21.4.

diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el
index 9a1f458848f12b724abcf19b14c9a603adddbad9..0390ac048549b405d67d97f85bcabd0365a97e0b 100644 (file)
--- a/lisp/progmodes/ada-xref.el
+++ b/lisp/progmodes/ada-xref.el
@@ -475,10 +475,14 @@ All the directories are returned as absolute directories."
      (or ada-xref-project-files '(nil)))
 
      (if (not ada-xemacs)
-         (if (lookup-key ada-mode-map [menu-bar Ada Project])
-             (setcdr (lookup-key ada-mode-map [menu-bar Ada Project])
-                    submenu)))
-    ))
+         (if (and (lookup-key ada-mode-map [menu-bar Ada])
+                 (lookup-key ada-mode-map [menu-bar Ada Project]))
+            (setcdr (lookup-key ada-mode-map [menu-bar Ada Project])
+                    submenu)
+          (if (lookup-key ada-mode-map [menu-bar ada Project])
+              (setcdr (lookup-key ada-mode-map [menu-bar ada Project])
+                      submenu))))
+     ))
 
 
 ;;-------------------------------------------------------------
@@ -725,8 +729,8 @@ name as was passed to `ada-create-menu'."
                                (not ada-tight-gvd-integration)))
                        :button (:toggle . ada-tight-gvd-integration)) t))
 
-      (define-key ada-mode-map [menu-bar Ada Edit rem3] '("------------" . nil))
-      (define-key ada-mode-map [menu-bar Ada Edit open-file-from-src-path]
+      (define-key edit-menu [rem3] '("------------" . nil))
+      (define-key edit-menu [open-file-from-src-path]
        '("Search File on source path..." . ada-find-file))
       )
     )